﻿Imports System

Namespace System.Workflow.Runtime
    Friend NotInheritable Class SchedulerLockGuardInfo
        ' Methods
        Friend Sub New(ByVal _sender As Object, ByVal _eventType As WorkflowEventInternal)
            Me.sender = _sender
            Me.eventType = _eventType
            Me.eventInfo = Nothing
        End Sub

        Friend Sub New(ByVal _sender As Object, ByVal _eventType As WorkflowEventInternal, ByVal _eventInfo As Object)
            Me.New(_sender, _eventType)
            Me.eventInfo = _eventInfo
        End Sub


        ' Properties
        Friend ReadOnly Property EventInfo As Object
            Get
                Return Me.eventInfo
            End Get
        End Property

        Friend ReadOnly Property EventType As WorkflowEventInternal
            Get
                Return Me.eventType
            End Get
        End Property

        Friend ReadOnly Property Sender As Object
            Get
                Return Me.sender
            End Get
        End Property


        ' Fields
        Private eventInfo As Object
        Private eventType As WorkflowEventInternal
        Private sender As Object
    End Class
End Namespace

